home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 82 / 082.d81 / what goes up (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  24.0 KB  |  721 lines
  1. 100 rem@ s=1024
  2. 110 n=1:v=53248:poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or0
  3. 120 gosub4290:poke648,192:poke53265,23:poke53272,9:poke650,128:print"[147]";:a=rnd(-ti)
  4. 130 pokev+21,0:poke53282,2:poke53283,1:poke53270,216:poke53281,0:poke53280,0
  5. 140 cd$=""
  6. 150 cl$="                                       ":sm$="loadstar!"+chr$(13)
  7. 160 dima$(125),a(127),c(12,3),l(3),s(3,2),d(100,1),m$(23),i(4),n$(12),i$(8)
  8. 170 dimtp$(10),ts(10),ls(3),t$(44),pr(4),pr$(4),sp(3)
  9. 180 ch$="[208]abcdefghijklmnopqrstuvwxyz1234567890?!'.$[191][217][180]"
  10. 190 readb,c:ifc<>-1thena(b)=c:goto190
  11. 200 z1=1024:z2=1173:z3=1180:z4=1193:fora=1to8:readc(a,1):next
  12. 210 fora=1to12:readc(a,2):next:fora=1to8:readc(a,3):next
  13. 220 fora=1to3:readl(a):next
  14. 230 fora=0to23:readm$(a):m$(a)="        "+m$(a)+"        ":next
  15. 240 fora=1to12:readn$(a):next
  16. 250 fora=1to8:readi$(a):next
  17. 260 p4=0
  18. 270 fora=0to44:readt$(a):next
  19. 280 z=1:jp=56321
  20. 290 open15,8,15,"r0:the best=the best":input#15,a$:close15:ifa$<>"63"then6960
  21. 300 z=0
  22. 310 open2,8,2,"the best,s,r":fora=1to10:input#2,p$(a),a$:ts(a)=val(a$)
  23. 320 next:input#2,qu$:close2:ml=12
  24. 330 pr(0)=50:pr(1)=15:pr(2)=25:pr(3)=50:pr(4)=30
  25. 340 pr$(0)="rocket":pr$(1)="flashlight":pr$(2)="bomb":pr$(3)="shield"
  26. 350 pr$(4)="spanner":sp(1)=57:sp(3)=56
  27. 360 gosub7110:goto2400
  28. 370 print"[147]";:pokev+21,0:pokev+23,0:fora=.to4:i(a)=0:next:cd=2
  29. 380 ifpm=0thenl=1
  30. 390 dl=0:mb=3:s=.:o8=72:pokesd+5,9:pokesd+6,0:rem begin stage
  31. 400 pokesd+4,wf:pokesd+1,33:pokesd,135:pokesd+4,17:fora=1to50:next:ct=.:wf=16
  32. 410 gosub5900:pokesd+4,16:poke53283,c4:poke53282,c3:poke646,c2or8
  33. 420 s4=.:print"[147]";:poke198,.:ac=0:xs=x1:ys=y1-1:pb=49422:ip=1
  34. 430 gosub6110:gosub6020:tm=mt:s1=.:s3=.:tn=tu:s4=.:poke198,0
  35. 440 x=xs:sc=49352:y=ys+20:rv=8:ov=10:sp=32:sx=16+x*8:pokev+1,88
  36. 450 pokev,sx:poke50168,16:pokev+39,3:pokev+21,1:gosub790
  37. 460 sysz4,fs:sys z2,33:pokev+16,0:d1=1:db=100:nd=0
  38. 470 ifbl<>.thengosub6430
  39. 480 sx=16+x*8:pokev,sx:poke50168,16
  40. 490 j=peek(jp)and127:ifj=111then800
  41. 500 if(jand1)=.thengosub750
  42. 510 if(jand2)=.thengosub770
  43. 520 bx=peek(x+sc+40):ifint(a(bx))=.then550
  44. 530 ona(bx)goto2830,3380,3390,4210,4200,4240,4220,4230,3020,3510,4270
  45. 540 ona(bx)-11goto4310,4340,4390,4430,550,550,4980,5820
  46. 550 j=peek(jp):if(jand4)=.thendr=-n:bx=peek(x+sc+dr):goto630
  47. 560 if(jand8)=.thendr=n:bx=peek(x+sc+dr):goto630
  48. 570 k=.:tn=tn-n:iftn<nthentn=tu:tm=tm-n:gosub790:iftm<nthen2830
  49. 580 ifs1=nthens3=s3-n:ifs3=.then710
  50. 590 ifs4=nthens5=s5-n:ifs5=.thens4=.:poke53283,c4:poke53282,c3
  51. 600 goto470
  52. 610 ifk=1then570
  53. 620 goto550
  54. 630 k=n:d1=dr:dm=.:ifbx=221then4390
  55. 640 ifint(a(bx))=.then3550
  56. 650 pc=17:ifr=.5thenpc=16
  57. 660 r=.:ona(bx)goto2830,690,3550,3550,3550,4240,3550,3550,3020,3510
  58. 670 ona(bx)-10goto4270,4310,4340,4390,4430,4490,4610,4980,5820
  59. 680 goto3550
  60. 690 pokev,sx+dr*4:poke50168,pc:x=x+dr:goto570
  61. 700 pokev,sx+dr*4:fora=nto50:next:x=x+dr:sx=16+x*8:pokev,sx:poke50168,16:goto570
  62. 710 s1=0:poke53280,0:ifa(peek(x+sc+40))=1then2830
  63. 720 ifa(peek(x+sc))=1then2830
  64. 730 goto600
  65. 740 pokepb+(pp-1)*40,32:pokepb+(ip-1)*40,106:return
  66. 750 pp=ip:ip=ip-1:ifip<1thenip=6
  67. 760 gosub740:return
  68. 770 pp=ip:ip=ip+1:ifip>6thenip=1
  69. 780 gosub740:return
  70. 790 print""tab(33)tm"[157] ":return
  71. 800 ifip=6then830
  72. 810 onipgosub980,1120,1160,1260,1300
  73. 820 goto520
  74. 830 sys z1,10,20,30,1
  75. 840 print"";:fora=1to24:printtab(30)"         ":next:print""tab(31)"[159]game"
  76. 850 printtab(31)"paused":print:printtab(31)"press:"
  77. 860 printtab(31)"a to":printtab(31)"abort,"
  78. 870 printtab(31)"q to":printtab(31)"quit,"
  79. 880 printtab(31)"e to":printtab(31)"exit the":printtab(31)"program,"
  80. 890 printtab(31)"or space":printtab(31)"to":printtab(31)"return"
  81. 900 printtab(31)"to the":printtab(31)"game."
  82. 910 poke198,0
  83. 920 geta$:ifa$="a"thenab=1:goto2830
  84. 930 ifa$="q"then3560
  85. 940 ifa$="e"then1350
  86. 950 ifa$<>" "then920
  87. 960 print"";:fora=1to24:printtab(30)"         ":next:print"";:gosub6110
  88. 970 goto520
  89. 980 ifi(.)=.thenreturn
  90. 990 i(.)=i(.)-1:print""tab(33)i(.)""
  91. 1000 sysz2,129:sysz1,0,50,30,20
  92. 1010 poke646,c2or8:poke50168,25:pokev+2,peek(v):pokev+3,peek(v+1):pokev+40,2
  93. 1020 poke50169,26:ex=27:pokev+21,3
  94. 1030 fora=1to10:ifa(peek(x+sc-40))<>2thena=10:next:goto1110
  95. 1040 yz=ys-5
  96. 1050 ifyz<1thenyz=yz+100:goto1050
  97. 1060 sys915:print""a$(yz):y=y-1:ify<1theny=100
  98. 1070 ys=ys-1:ifys<1thenys=100
  99. 1080 ifbl<>.thenbp=bp+40:ifbp>50151thenbl=0
  100. 1090 poke50169,ex:ifex=27thenex=26:next:goto1110
  101. 1100 ex=27:next
  102. 1110 sys1173,33:pokev+21,1:poke50168,16:return
  103. 1120 ifi(n)=.thenreturn
  104. 1130 ifs4=nthenreturn
  105. 1140 i(n)=i(n)-n:print""tab(33)i(1)""
  106. 1150 sysz1,10,250,30,100:s5=30:s4=n:poke53283,11:poke53282,2:return
  107. 1160 ifi(2)=.thenreturn
  108. 1170 i(2)=i(2)-1:print""tab(33)i(2)"":pokev+40,10:sysz2,129
  109. 1180 pokev+2,peek(v):pokev+3,peek(v+1):poke50169,18:pokev+21,3
  110. 1190 fora=1to7:next:poke50169,19:gosub1340:fora=-41to-39
  111. 1200 ifa(peek(x+sc+a))=.5thenpokex+sc+a,32
  112. 1210 next:poke50169,20:ifa(peek(x+sc-1))=.5thenpokex+sc-1,32
  113. 1220 ifa(peek(x+sc+1))=.5thenpokex+sc+1,32
  114. 1230 poke50169,21:fora=39to41:ifa(peek(x+sc+a))=.5thenpokex+sc+a,32
  115. 1240 next:poke50169,22:fora=1to7:next:poke50169,23:fora=1to7:next:pokev+21,1
  116. 1250 sysz2,33:return
  117. 1260 ifs1=1thenreturn
  118. 1270 ifi(3)=.thenreturn
  119. 1280 sysz1,190,250,30,20:s1=1:s3=20:poke53280,1
  120. 1290 i(3)=i(3)-1:print""tab(33)i(3)"":return
  121. 1300 ifpeek(x+sc+40+d1)<>32thenreturn
  122. 1310 ifi(4)=.thenreturn
  123. 1320 sysz1,10,50,30,1:pokex+sc+40+d1,99
  124. 1330 i(4)=i(4)-1:print""tab(33)i(4)"":return
  125. 1340 sysz1,10,250,30,100:return
  126. 1350 pokev+21,0:pokesd+4,0:pokesd+11,0:pokesd+18,0:pokesd+5,9:pokesd+6,0
  127. 1360 print"[153][147]";
  128. 1370 sysz1,10,171,50,160
  129. 1380 print"do you want to:"
  130. 1390 print""tab(7)"1.reset the program"
  131. 1400 print""tab(7)"2.return to the boot menu"
  132. 1410 print""tab(7)"3.return to loadstar"
  133. 1420 rv=9
  134. 1430 getqq$:qq=val(qq$):onqqgoto1560,1450,1500
  135. 1440 goto1430
  136. 1450 print"[147]";:sysz3:pokesd+4,32
  137. 1460 open15,8,15,"r0:upboot=upboot":input#15,er%:close15
  138. 1480 poke53272,21:poke648,4:poke56576,151:poke53265,27:poke53270,200:print"[147][154]";
  139. 1490 poke53281,6:poke53280,14
  140. 1495 ifer%<>63thenprint"[147]":end
  141. 1496 goto60000
  142. 1500 print"[147]";:sysz3:pokesd+4,32
  143. 1510 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  144. 1520 ifer%<>63then1480
  145. 1530 poke53272,21:poke648,4:poke56576,151:poke53265,27:poke53270,200:print"[147][158]";
  146. 1540 poke53281,3:poke53280,10
  147. 1550 load "hello connect",8
  148. 1560 run
  149. 1570 data109,1,125,1,102,1,104,1,92,1,85,1,73,1,36,1,31,1,42,1,72,1,68,1,70,1
  150. 1580 data32,2,87,3,77,4,78,5,91,6,27,7,29,8,35,9,0,10,82,11,79,12
  151. 1590 data28,13,59,13.41,60,13.31,71,13.11,90,13.21
  152. 1600 data74,1,124,1,83,14,75,.5,99,.5,113,.5,88,.5,86,.5,66,15,37,16
  153. 1610 data41,17,47,18,62,16,96,16,30,16,80,19,100,14,121,4.5,127,5.5,76,2,-1,-1
  154. 1620 data0,6,14,3,1,3,14,6
  155. 1630 data0,9,2,8,10,7,1,7,10,8,2,9
  156. 1640 data0,11,12,15,1,15,12,11
  157. 1650 data8,12,8
  158. 1660 data"   by johnny harris!    "
  159. 1670 data"   @ 1990 john harris   "
  160. 1680 data"published on loadstar 82"
  161. 1690 data"      press fire!!      "
  162. 1700 data" so you managed to make "
  163. 1710 data"  it through the last   "
  164. 1720 data"   set of tunnels, eh?  "
  165. 1730 data"well, here are 12 more! "
  166. 1740 data" and they're even harder"
  167. 1750 data"      than before!!     "
  168. 1760 data"you think ya got what it"
  169. 1770 data"takes? suuuure you do..."
  170. 1780 data" hahahahahahahahaha.... "
  171. 1790 data"  to enter the control  "
  172. 1800 data"screen, type 'loadstar!'"
  173. 1810 data"    and press return!   "
  174. 1820 data"(built-in advertisment!)"
  175. 1830 data"   i bet you're sick    "
  176. 1840 data" of exclamation points! "
  177. 1850 data"    well, i'm not!!     "
  178. 1860 data"!!!!!!!!!!!!!!!!!!!!!!!!"
  179. 1870 data" now i'm sick of them.  "
  180. 1880 data"        see ya!         "
  181. 1890 data"                        "
  182. 1900 data one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve
  183. 1910 data"access card","flashlight","bomb","shield"
  184. 1920 data"key","rocket","spanner","1 up"
  185. 1930 data" you have escaped from the  "
  186. 1940 data"  planet,and are returning  "
  187. 1950 data"  home. i hope you enjoyed  "
  188. 1960 data"  the game! before i go, i  "
  189. 1970 data"  would just like to thank  "
  190. 1980 data"  the editors of loadstar:  "
  191. 1990 data" fender tucker & jeff jones "
  192. 2000 data"","  for agreeing to publish   "
  193. 2010 data"  this in the first place.  "
  194. 2020 data"     jarrod hiram love      "
  195. 2030 data"for breaking my joystick so "
  196. 2040 data" i would have to include a  "
  197. 2050 data"    way to play with the    "
  198. 2060 data"         keyboard.          "
  199. 2070 data"    donald jason harris     "
  200. 2080 data"                            "
  201. 2090 data"for turning down his stereo "
  202. 2100 data"   just in time for me to   "
  203. 2110 data" retain some of my hearing. "
  204. 2120 data"      furball the cat       "
  205. 2130 data"  for reminding me to feed  "
  206. 2140 data"him(i still have the scar), "
  207. 2150 data" thus reminding me to feed  "
  208. 2160 data"          myself.           "
  209. 2170 data"      and mom and dad       "
  210. 2180 data"                            "
  211. 2190 data" for putting up with me for "
  212. 2200 data"seventeen-and-a-half years. "
  213. 2210 data"                            "
  214. 2220 data"  thanks for playing!! you  "
  215. 2230 data"   might want to see what   "
  216. 2240 data"happens if you press ctrl-l "
  217. 2250 data"  and ctrl-e from the game  "
  218. 2260 data"       control screen.      "
  219. 2270 data"   what goes up game, boot  "
  220. 2280 data" program, editor,[160]graphics, "
  221. 2290 data"  instructions and support  "
  222. 2300 data"  files are copyright 1991  "
  223. 2310 data"   by john william harris   "
  224. 2320 data"                            "
  225. 2330 data"          t  h  e           "
  226. 2340 data"          e  n  d           "
  227. 2350 data"                            "
  228. 2360 data"            bye!            "
  229. 2370 geta$:ifa$<>""thenreturn
  230. 2380 m=m-1:ifm<>0then2370
  231. 2390 return
  232. 2400 poke53265,87
  233. 2410 pm=0:pokesd+24,15:poke53283,0:pokev+21,0:pokev+39,3:pokev+1,176:pokev,8
  234. 2420 x=8:m=0:p=1:ss=0:z=0:poke53272,9:poke646,int(rnd(1)*8)+8:sysz4,1:sw=1
  235. 2430 print"[147]";:fora=1to24:print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":next
  236. 2440 pokev+16,0:poke50168,16:fora=50169to50174step2:pokea,40:pokea+1,41:next
  237. 2450 poke53275,0:ifs<>0thenprint""tab(11)"your score :[158]"s
  238. 2460 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  239. 2470 fora=1to7:printtab(9)"[221]                    [221]":next
  240. 2480 printtab(9)"[221]  what goes up....  [221]"
  241. 2490 printtab(9)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  242. 2500 print"[159][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157]"chr$(148)"[192]"
  243. 2510 print"                                       "
  244. 2520 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157]"chr$(148)"[192]":print"[145][145][149]";
  245. 2530 fora=0to2:pokev+2+(a*4),109+(a*52):pokev+4+(a*4),133+(a*52)
  246. 2540 pokev+3+(a*4),100:pokev+5+(a*4),100:next
  247. 2550 ifjp=56321thenm$(3)="         press fire or space!!          "
  248. 2560 fora=v+40tov+45:pokea,14:next:pokev+14,172:pokev+15,120:pokev+46,3:pokev+23,128
  249. 2570 poke50175,46:pokev+21,255:poke53265,23
  250. 2580 a=1:b=int(rnd(1)*3)+1:c=l(b):pokev+16,0
  251. 2590 poke53283,c(a,b):pokev+39,c(a,b):a=a+1:ifa>cthena=1
  252. 2600 x=x+4:ifx>255thenss=1:pokev+16,1:x=x-256
  253. 2610 pokev,x:ifzthengosub2790:goto2640
  254. 2620 poke50168,17:ifp=41thengosub2810:ife=1thene=0:pokev,x:pokev+21,255
  255. 2630 z=not z:ifm=100thenpokev+21,0:print"[147]";:goto4110
  256. 2640 geta$:ifa$=""then2680
  257. 2650 ifa$<>mid$(sm$,sw,1)thensw=1:goto2670
  258. 2660 sw=sw+1:ifsw>len(sm$)then6740
  259. 2670 ifa$="q"then1350
  260. 2680 if(peek(jp)and127)<>111then2590
  261. 2690 pokev+21,254:pokev+16,0:print"";
  262. 2700 print"                                        "
  263. 2710 fora=0to2:forb=0to1:poke50169+a*2,b+42:next:poke50169+a*2,40
  264. 2720 forb=0to1:poke50170+a*2,b+44:next:poke50170+a*2,41:next
  265. 2730 pokesd+5,0:pokesd+6,249:pokesd+12,0:pokesd+13,240:pokesd+1,0:pokesd+8,0
  266. 2740 pokesd+4,129:pokesd+11,17
  267. 2750 poke53283,1:fora=1to8:poke53281,c(a,3)
  268. 2760 pokesd+1,a*31:pokesd+8,a/2:forb=1to5:next:next:pokesd+8,0:poke53281,0
  269. 2770 pokesd+11,16:pokesd+4,128:fora=1to8:pokesd+1,a*31:next:pokesd+1,0
  270. 2780 goto370
  271. 2790 poke50168,16:a$=mid$(m$(m),p,1):ifa$="@"thena$="@[146][149]"
  272. 2800 print""a$;:p=p+1:z=not z:return
  273. 2810 print:print"[145][145]";:m=m+1:pokev+21,254:pokev+16,0:e=1:x=12:ifm>23thenm=100
  274. 2820 p=1:return
  275. 2830 ifs1=nandab=.then2960
  276. 2840 s1=0:poke53280,0
  277. 2850 ab=.:pokev+2,peek(v):pokev+3,peek(v+1):pokev+40,7:pokev+21,3:poke50169,18
  278. 2860 pokesd+4,wf:pokesd+5,0:pokesd+6,245:pokesd+1,96:pokesd,0:pokesd+4,129
  279. 2870 fora=18to19:poke50169,a:forb=1to4:next:pokesd+1,a*4:next
  280. 2880 pokev+40,1:poke50169,20:pokev+21,2
  281. 2890 forb=1to5:next:pokev+40,7:pokesd+1,255
  282. 2900 fora=21to23:poke50169,a:pokesd+1,(40-a)*12:forb=1to7:next:next
  283. 2910 pokesd+1,5:pokesd+1,50:pokesd+1,200:pokesd+1,5:pokesd+4,128:pokesd+5,9:pokesd+6,0
  284. 2920 pokev+21,0:fora=1to500:next
  285. 2930 mb=mb-1
  286. 2940 ifmb=0then3560
  287. 2950 print"[129][147]":goto420
  288. 2960 ifk=1then3000
  289. 2970 ifbx<>109andbx<>125then3380
  290. 2980 ifbx=109then4210
  291. 2990 goto4200
  292. 3000 ifbx=109orbx=125then3550
  293. 3010 goto690
  294. 3020 ifac=.then3310
  295. 3030 pokev+21,0:pokesd+4,0:fora=0to149step15:sysz1,a,230,100,125:forb=1to50
  296. 3040 next:pokesd+4,32:next:sysz1,0,255,100,200:s1=0:poke53280,0
  297. 3050 poke50168,16
  298. 3060 poke53282,0:poke53283,0:sysz1,0,11,20,10:print"";:fora=1to24
  299. 3070 print"[189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]":next
  300. 3080 ifpm=1then2400
  301. 3090 pokesd+4,32:pokesd+5,0:pokesd+6,240
  302. 3100 print"                            ":fora=1to7:sys915:next
  303. 3110 ifl<mlthenprint"now entering the next stage!":sys915
  304. 3120 print"                            ":fora=1to2:sys915:next
  305. 3130 db=(2^nd)*100:ifdb>100000thendb=100000
  306. 3140 print"disk bonus="db:sys915:print"                  "
  307. 3150 print"                            ":fora=1to2:sys915:next
  308. 3160 print"time left="tm:sys915:print"               "
  309. 3170 fora=1to3:sys915:next
  310. 3180 print"stage "n$(l)" completed!":sys915
  311. 3190 print"                         ":fora=1to4:sys915:next
  312. 3200 print""tab(15-(len(em$)/2))em$:sys915
  313. 3210 print"                         ":sys915:sys915:iftm=0then3270
  314. 3220 b=tm/5:c=255/b:d=255
  315. 3230 fora=tmto5step-5:poke214,11:print:printtab(13)""a"[157] ":s=s+125
  316. 3240 print""tab(30)s:sys1024,d,255,3,50:d=d-c:next
  317. 3250 a=a+5:ifa=0then3270
  318. 3260 s=s+abs(a)*25:poke214,11:print:printtab(13)""0"[157] ":print""tab(30)s
  319. 3270 s=s+5000:l=l+1:pokesd+4,32:pokesd+5,9:pokesd+6,0
  320. 3280 poke214,14:print:printtab(14)""0"[157]      ":s=s+db:print""tab(30)s
  321. 3290 sysz1,90,120,50,5:fora=1to2700:next:ifl<=mlthenprint"[147]";:goto400
  322. 3300 goto5020
  323. 3310 nd=0:pokev+21,0:x=x1:ys=y1-1:y=ys+20:gosub6020
  324. 3320 sx=24+(x-1)*8:pokev,sx:pokev+21,1:goto610
  325. 3330 poke646,c2or8:poke214,23:print:print""a$(y)"[221][146]";:sys828
  326. 3340 y=y+1:ify>100theny=y-100
  327. 3350 ys=ys+1:ifys>100thenys=ys-100
  328. 3360 ifbl<>.thenbp=bp-40:ifbp<49152thenbl=0
  329. 3370 return
  330. 3380 gosub3330:goto550
  331. 3390 pokesd+4,32:pokesd+5,0:pokesd+6,240:fora=28to31:poke50168,a:forb=1to10:next:next
  332. 3400 fora=255to55step-20:sysz1,255,a,15,a/5:gosub3330:next
  333. 3410 dc=.:fora=31to28step-1:poke50168,a:forb=1to10:next:next
  334. 3420 poke50168,16:pokesd+4,32:pokesd+5,9:pokesd+6,0:goto550
  335. 3430 ifx<1orx>27thens1=0:poke53280,0:goto2830
  336. 3440 pokesd+4,wf:pokesd+5,0:pokesd+6,240:pokesd+1,108:pokesd+4,129
  337. 3450 pokesd+12,0:pokesd+13,240:pokesd+8,135:pokesd+11,33
  338. 3460 fora=28to31:pokesd+1,a*2:pokesd+8,a
  339. 3470 poke50168,a:next:sx=16+x*8:pokev,sx:pokesd+1,255:pokesd+8,255
  340. 3480 fora=31to28step-1:pokesd+1,a*3:pokesd+8,a:poke50168,a:next
  341. 3490 pokesd+1,0:pokesd+8,0:pokesd+4,128:pokesd+11,32:pokesd+5,9:pokesd+6,0
  342. 3500 pokesd+12,9:pokesd+13,0:goto470
  343. 3510 s=s+50:print""tab(30)s:dl=dl+1:ifdl>999thendl=999
  344. 3520 print""tab(33)""dl
  345. 3530 sys z1,80,100,13,5
  346. 3540 goto5880
  347. 3550 sysz1,20,80,12,252:poke50168,sp(d1+2):goto570
  348. 3560 s1=.:ab=.:poke53280,0:pokev+21,0:ifpm=1then2400
  349. 3570 pokesd+4,0:pokesd+5,0:pokesd+6,240
  350. 3580 sys1180:a=fre(.):gosub4170:sysz2,33:poke53282,1:poke53283,6
  351. 3590 print"[151]g a m e  o v e r":sysz4,1
  352. 3600 fora=127to.step-2:sysz1,a,a*2,15,244:forb=1to50:next:next
  353. 3610 fora=1to1500:next:pokesd+4,32:pokesd+5,9:fora=1to20:sys915:next
  354. 3620 ifs<=ts(10)then4110
  355. 3630 p=10
  356. 3640 ifts(p)<=sthenp=p-1:ifp>0then3640
  357. 3650 p=p+1:print""tab(31)"your"
  358. 3660 printtab(31)"score":printtab(30)""s
  359. 3670 print""tab(31)"great!!":printtab(31)"you have"
  360. 3680 printtab(31)"made it":printtab(31)"on the"
  361. 3690 printtab(31)"high":printtab(31)"score"
  362. 3700 printtab(31)"table!":printtab(31)"enter"
  363. 3710 printtab(31)"your":printtab(31)"name:"
  364. 3720 printtab(30)"[158]rank no."
  365. 3730 printtab(31)""n$(p);:ifp=1thenprint"!!"
  366. 3740 poke214,17:print:printtab(30)"---------[157][157][157][157][157][157][157][157][157]";
  367. 3750 pokesd+5,9:pokesd+6,0:sysz2,33
  368. 3760 print"[208][157]";:cp=1:n$="":f=0:poke53270,200:c=int(rnd(1)*3)+1:d=1
  369. 3770 f=0:geta$:ifa$<>""then3860
  370. 3780 j=peek(56320)and127
  371. 3790 ifj=126thenf=1:cp=cp+1:ifcp>len(ch$)thencp=1
  372. 3800 ifj=125thenf=1:cp=cp-1:ifcp<1thencp=len(ch$)
  373. 3810 ifj=111thenf=2
  374. 3820 iff=2then3990
  375. 3830 iff=1thensysz1,150,170,3,10
  376. 3840 printmid$(ch$,cp,1)"[157]";:poke646,c(d,c):d=d+1:ifd>l(c)thend=1
  377. 3850 goto3770
  378. 3860 cp=1:printmid$(ch$,cp,1)"[157]";
  379. 3870 ifa$=chr$(13)then4050
  380. 3880 ifa$=chr$(20)andlen(n$)>0thengosub3960:goto3770
  381. 3890 ifa$=" "then3940
  382. 3900 ifa$>="a"anda$<="z"then3940
  383. 3910 ifa$>="0"anda$<="9"then3940
  384. 3920 ifa$="!"ora$="?"ora$="."ora$="$"then3940
  385. 3930 sys1024,0,20,10,2:goto3770
  386. 3940 sysz1,50,170,35,10:print"[158]"a$;:n$=n$+a$:iflen(n$)=9then4050
  387. 3950 printmid$(ch$,cp,1)"[157]";:goto3770
  388. 3960 sysz1,50,170,20,250
  389. 3970 print"[146]-[157][157]"mid$(ch$,cp,1)"[157]";:n$=left$(n$,len(n$)-1):return
  390. 3980 ifa$=chr$(20)andlen(n$)>0thenprint"[146]-[157][157]"mid$(ch$,cp,1)"[157]";
  391. 3990 ifcp=45thenprint" ";:goto4050
  392. 4000 ifcp=44andlen(n$)>0thengosub3960:goto3770
  393. 4010 ifcp=44then3840
  394. 4020 sysz1,50,170,35,10
  395. 4030 n$=n$+mid$(ch$,cp,1):iflen(n$)=9thenprint"[158]"mid$(ch$,cp,1)"";:goto4050
  396. 4040 print"[158]"mid$(ch$,cp,1)""mid$(ch$,cp,1)"[157]";:goto3770
  397. 4050 ifn$=""thenn$="??????????"
  398. 4060 poke53270,216:sysz1,64,192,60,20:fora=1to2000:next
  399. 4070 fora=9topstep-1:p$(a+1)=p$(a):ts(a+1)=ts(a):next
  400. 4080 p$(p)=n$:ts(p)=s:ifp=1thengosub6550
  401. 4090 open15,8,15,"s0:the best":close15:open2,8,2,"the best,s,w"
  402. 4100 fora=1to10:print#2,p$(a):print#2,ts(a):next:print#2,qu$:close2:goto4120
  403. 4110 pokev+21,0:pt=0
  404. 4120 gosub4170:print"";
  405. 4130 fora=10to2step-1:print"[158]"tab(3)p$(a)tab(15)ts(a)"[145]":sys915:sys915:next
  406. 4140 print"[159]"qu$"[145]":sys915:print""tab(3)p$(a)tab(15)ts(1)"[145]":sys915:sys915
  407. 4150 print"--- [159]the all-time best: ---"
  408. 4160 fora=1to5000:next:goto2400
  409. 4170 print"";:fora=1to24:print"[221][146]                            [221][146]        ";
  410. 4180 printchr$(20)" ":next
  411. 4190 print"[221][146]                            [221][146]        ":poke50152,32:return
  412. 4200 dr=-n:r=a(bx)-int(a(bx)):bx=peek(x+sc+dr):goto630
  413. 4210 dr=n:r=a(bx)-int(a(bx)):bx=peek(x+sc+dr):goto630
  414. 4220 x=x-5:goto3430
  415. 4230 x=x+5:goto3430
  416. 4240 fora=1to100step10:sys 1024,a,255,3,50:forb=1to20:next:next
  417. 4250 print""tab(36);:poke646,c2or8:print"[146][219]":ky=1
  418. 4260 goto5880
  419. 4270 nd=nd+1:sysz1,10,100,10,20:ifk=1thenpokex+sc+dr,32:goto610
  420. 4280 pokex+sc+40,32:goto610
  421. 4290 sd=54272:fora=sdtosd+24:pokea,0:next:pokesd+24,15:pokesd+5,9:pokesd+6,0
  422. 4300 return
  423. 4310 print""tab(32):poke646,c2or8:print"[146][207]":ac=1
  424. 4320 sys z1,150,250,70,220:ifk=1thenpokex+sc+dr,32:goto610
  425. 4330 pokex+sc+40,32:goto610
  426. 4340 s=s+1000:print""tab(30)s:sys z1,80,200,27,20:im=int((a(bx)-13)*10)
  427. 4350 ifi(im)<9theni(im)=i(im)+1
  428. 4360 poke214,5+im:print:printtab(33)""i(im)
  429. 4370 ifk=.thenpokex+sc+40,32:goto550
  430. 4380 pokex+sc+dr,32:goto570
  431. 4390 a=ys:ifk=.thena=a+n:ifa>100thena=n
  432. 4400 pokev+21,0:x=d(a+1,0):ys=d(a+1,1)-1:ifx=.orys=.then3310
  433. 4410 y=ys+20:gosub6020
  434. 4420 sx=24+(x-1)*8:pokev,sx:pokev+21,1:goto610
  435. 4430 s=s+500:print""tab(30)s:dl=dl+5:ifdl>999thendl=999
  436. 4440 print""tab(33)""dl
  437. 4450 sysz1,80,100,13,230
  438. 4460 ifk=nthenpokex+sc+dr,32:goto570
  439. 4470 pokex+sc+40,32:goto550
  440. 4480 poke648,192:poke53272,9:print"[147]";:clr:end
  441. 4490 ifbl<>.then3550
  442. 4500 a=peek(x+sc+dr*2):ifa=221thenpokex+sc+dr,32:goto610
  443. 4510 ifa(a)=nthenpokex+sc+dr,32:goto610
  444. 4520 ifa<>32then4570
  445. 4530 bl=peek(x+sc+dr):pokex+sc+dr,32:pokex+sc+dr*2,bl
  446. 4540 q=peek(x+sc+dr*2+40):ifq=32orq=77orq=78thenbp=x+sc+dr*2:goto610
  447. 4550 ifa(q)=nthenpokex+sc+dr*2,32:bl=0:goto610
  448. 4560 bl=0:goto610
  449. 4570 a=x+sc+dr:b=peek(a):ifb=62thensysz1,0,10,10,2:pokea,47:goto610
  450. 4580 ifb=96thensysz1,0,10,10,2:pokea,82:goto610
  451. 4590 ifb=30thensysz1,0,10,10,2:pokea,.:goto610
  452. 4600 goto3550
  453. 4610 pokev+21,0:print"                            ":fora=1to24:sys915:next
  454. 4620 print"hiya!"
  455. 4630 print"we don't get many visitors"
  456. 4640 print"here. what do ya want to"
  457. 4650 print"buy?"
  458. 4660 fora=1to3:print""a"-";i$(s(a,1))
  459. 4670 print"for $"s(a,2):next
  460. 4680 print"press space to leave":poke198,0:p1=1
  461. 4690 poke55659+(p1-1)*120,9:poke49515+(p1-1)*120,106
  462. 4700 jy=peek(56320)and127:ifjy=126thengosub4960:p1=p1-1:ifp1<1thenp1=4
  463. 4710 ifjy=125thengosub4960:p1=p1+1:ifp1>4thenp1=1
  464. 4720 ifjy=111then4940
  465. 4730 geta$:ifa$=""then4690
  466. 4740 ifa$=" "then4970
  467. 4750 ifa$<"1"ora$>"3"then4690
  468. 4760 a=val(a$):ifs(a,2)>dlthen4690
  469. 4770 dl=dl-s(a,2):ons(a,1)gosub4790,4800,4820,4840,4860,4880,4900,4920
  470. 4780 gosub6110:goto4690
  471. 4790 sys z1,150,250,70,220:ac=1:return
  472. 4800 ifi(1)<9theni(1)=i(1)+1
  473. 4810 sys z1,80,200,50,20:return
  474. 4820 ifi(2)<9theni(2)=i(2)+1
  475. 4830 sys z1,80,200,50,20:return
  476. 4840 ifi(3)<9theni(3)=i(3)+1
  477. 4850 sys z1,80,200,50,20:return
  478. 4860 fora=1to100step10:sys 1024,a,255,3,50:forb=1to20:next:next
  479. 4870 ky=1:return
  480. 4880 ifi(.)<9theni(.)=i(.)+1
  481. 4890 sys z1,80,200,50,20:return
  482. 4900 ifi(4)<9theni(4)=i(4)+1
  483. 4910 sys z1,80,200,50,20:return
  484. 4920 ifmb<9thenmb=mb+1
  485. 4930 sys z1,100,250,50,20:return
  486. 4940 ifp1=4then4970
  487. 4950 a$=right$(str$(p1),1):goto4760
  488. 4960 poke49515+(p1-1)*120,32:return
  489. 4970 bl=0:gosub6020:pokev+21,1:goto570
  490. 4980 sys z1,100,250,50,20:ifmb<9thenmb=mb+1
  491. 4990 print""tab(33)mb
  492. 5000 ifk=1thenpokex+sc+dr,32:goto610
  493. 5010 pokex+sc+40,32:goto610
  494. 5020 v=53248:pokev+21,0:pokev+16,0:sys1180:sys1193,20:poke198,0
  495. 5030 print"[147]you have made it through the last"
  496. 5040 print"tunnel!!!"
  497. 5050 fora=1to2500:next
  498. 5060 print"you arrive at the space port. rolling"
  499. 5070 print"up to the counter, you read the rates"
  500. 5080 print"for outgoing shuttles. they cost $300."
  501. 5090 m=800:gosub2370
  502. 5100 print"[147]you have $"dl"."
  503. 5110 print"you need $ 300 ."
  504. 5120 fora=1to2500:next
  505. 5130 fora=.to4:ifi(a)=0thennext:goto5160
  506. 5140 gosub5250:print"[158]you have"i(a)"[158]"pr$(a);a$",worth $"i(a)*pr(a)
  507. 5150 dl=dl+i(a)*pr(a):next
  508. 5160 ifky=1thenprint"[158]you also have a key worth $100.":dl=dl+100
  509. 5170 m=800:gosub2370
  510. 5180 print"[147]";:ifdl=>300then5210
  511. 5190 print"sorry,you don't have enough cash."
  512. 5200 fora=1to4000:next:goto3560
  513. 5210 print"you did it!!":dl=dl-300
  514. 5220 print"each dollar brings you 50 points."
  515. 5230 print"[158]$"dl"[159]x[158] 50 [159]="dl*50:s=s+dl*50
  516. 5240 fora=1to4500:next:goto5270
  517. 5250 a$="":ifi(a)>1thena$="s"
  518. 5260 return
  519. 5270 poke53281,0:poke53272,9
  520. 5280 pokev+21,0:pokev+23,0:pokev,24:pokev+1,200:gosub4170:print"";:fora=1to20
  521. 5290 print"[189][189][189][189][189][189][189][189][189][189][189][159][189][189] [189][159][189][189][189][189][189][189][189][189][189][189][189][189][189]":next
  522. 5300 fora=1to4:print"[189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]":next
  523. 5310 print"[189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]";
  524. 5320 print"             ";
  525. 5330 poke50168,16:poke50169,35:pokev+2,128:pokev+3,201:pokev+40,1:pokev+39,3
  526. 5340 ms=0:pokev+21,1:fora=24to128step4:ms=not(ms):pokev,a:poke50168,16+abs(ms)
  527. 5350 forb=1to70:next:next
  528. 5360 pokev+21,3:fora=1to6:sys915:poke49966,221:next
  529. 5370 fora=12to1step-1:print"[158]"tab(17)n$(a):sys915:poke49966,221
  530. 5380 print""tab(17)"[189][189][189][189][189][189][189][189][189]":sys915:poke49966,221
  531. 5390 forb=1to13:sys915:poke49966,221:next:next
  532. 5400 fora=49966to49152step-40:pokev+1,peek(v+1)-8:pokev+3,peek(v+3)-8
  533. 5410 pokea,221:forb=1to55:next:next
  534. 5420 pokev+21,0:poke53275,254:fora=4to15step2:pokev+a,int(rnd(1)*188)+40
  535. 5430 pokev+a+1,int(rnd(1)*256):next:pokev,128:pokev+1,200:poke50168,32
  536. 5440 pokev+2,128:pokev+3,216:pokev+40,2:poke50169,33:fora=41to46:pokev+a,1:next
  537. 5450 fora=0to5:pokev+41+a,11+int(rnd(1)*1):poke50170+a,36+int(rnd(1)*3):next
  538. 5460 fora=1to1000:next:print"";
  539. 5470 gosub4170
  540. 5480 print""tab(7)"[196][198][197]"
  541. 5490 printtab(4)"[197][159][210][211][212][197][196][196]"
  542. 5500 printtab(3)"[159][210][212]"tab(21)"[197]"
  543. 5510 printtab(12)"[198][196][198][197][196]"
  544. 5520 printtab(24)"[159][210][211][212]"
  545. 5530 printtab(4)"[163][163][163][163][163][163]"
  546. 5540 print"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
  547. 5550 fora=1to11:print"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]":next
  548. 5560 fora=1to6:print"[189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189][189]":next:print"";
  549. 5570 pokev+21,253
  550. 5580 fora=1to2500:next:print"[158]"tab(30)"wow! it's"
  551. 5590 printtab(30)"hard to":printtab(30)"believe"
  552. 5600 printtab(30)"someone":printtab(30)"has"
  553. 5610 printtab(30)"made it"
  554. 5620 printtab(30)"this far!"
  555. 5630 printtab(30)"game's":printtab(30)"over."
  556. 5640 printtab(30)"100000":printtab(30)"bonus"
  557. 5650 s=s+100000:printtab(30)"final":printtab(30)"score:"
  558. 5660 printtab(30)"[159]"s:fora=1to5000:next:sys915
  559. 5670 print"                           "
  560. 5680 pokev+21,255:d1=0:pokesd+5,11:pokesd+6,0:sysz2,129:sysz1,0,255,255,128
  561. 5690 fora=1to24:sys915:next:gosub5810:sys1225:pokesd+4,128:pokesd+5,4:pokesd+6,0
  562. 5700 fora=1to100:gosub5810:next
  563. 5710 sys1173,33:fora=0to44step5:print""
  564. 5720 forb=atoa+4:print"";:forc=1tolen(t$(b)):a$=mid$(t$(b),c,1)
  565. 5730 ifa$=" "thenprint" ";:goto5750
  566. 5740 print""a$;:sysz1,100,175,3,25:ford=1to30:next
  567. 5750 gosub5810:next:print:print:forc=1to4:gosub5810:next:next
  568. 5760 forb=1to75:gosub5810:next:print"":forb=1to9
  569. 5770 print"                           ":gosub5810:next:next
  570. 5780 pokesd+5,12:pokesd+6,0:sysz2,129:sysz1,1,255,255,65
  571. 5790 fora=peek(v+1)to0step-5:pokev+1,a:pokev+3,a+16:gosub5810:next
  572. 5800 fora=1to2500:next:sys1180:pokesd+4,128:goto3560
  573. 5810 d1=not d1:poke50169,33+abs(d1):return
  574. 5820 ifky=0then3550
  575. 5830 pokev+21,0:sys z1,0,250,200,200:s1=0:poke53280,0
  576. 5840 ifl=12then5020
  577. 5850 ifl=>10thenl=12:goto5870
  578. 5860 l=l+3:fora=1to4500:next
  579. 5870 poke53281,1:fora=1to500:next:poke53281,0:goto400
  580. 5880 ifk=1thenpokex+sc+dr,32:goto610
  581. 5890 pokex+sc+40,32:goto610
  582. 5900 ifl=llthenyw=100:a=fre(.):return
  583. 5910 print"[147]";tab(20-(len(n$(l))+14)/2);
  584. 5920 print"loading stage "n$(l)
  585. 5930 open15,8,15,"r0:stage"+str$(l)+"=stage"+str$(l):input#15,a$,b$,c$,d$
  586. 5940 close15:ifa$<>"63"then6930
  587. 5950 open2,8,2,"stage"+str$(l)+",p,r":input#2,c4,c3,c2
  588. 5960 fora=1to3:forb=1to2:input#2,s(a,b):next:next
  589. 5970 input#2,sn$:input#2,em$:input#2,x1:input#2,y1:input#2,fs
  590. 5980 print""tab(20-((len(sn$)+2)/2))chr$(34)sn$chr$(34)
  591. 5990 fora=nto100:input#2,a$(a):get#2,a$:d(a,.)=asc(a$)-1:get#2,a$
  592. 6000 d(a,1)=asc(a$)-1:next:input#2,tu,mt:close2:yw=100:ll=l:a=fre(.):return
  593. 6010 rem display stage
  594. 6020 sysz4,fs:print"";:ifs4=.thenpoke53283,c4:poke53282,c3
  595. 6030 poke646,c2or8:sysz1,10,50,65,4:fora=ys-4toys+19:b=a
  596. 6040 ifb<1thenb=b+100
  597. 6050 ifb>100thenb=b-100:goto6050
  598. 6060 print"[221][146]";:poke646,c2or8
  599. 6070 printa$(b)"[221]":next:b=b+1
  600. 6080 ifb>100thenb=yw+(b-101):goto6080
  601. 6090 print"[221][146]";:poke646,c2or8:printa$(b)"[221][146]";:return
  602. 6100 rem print stats.
  603. 6110 print""tab(31)"score:"
  604. 6120 printtab(30)""s
  605. 6130 print""tab(30)"";:poke646,c2or8:print"@="dl"[157]  "
  606. 6140 printtab(30)"[151][209]="mb"[157] "
  607. 6150 printtab(30)"t="
  608. 6160 printtab(30);:poke646,c2or8:print" \="i(.)
  609. 6170 printtab(30);:poke646,c2or8:print" [199]="i(1)
  610. 6180 printtab(30);:poke646,c2or8:print" [218]="i(2)
  611. 6190 printtab(30);:poke646,c2or8:print" <="i(3)
  612. 6200 printtab(30);:poke646,c2or8:print" ;="i(4)
  613. 6210 printtab(30)" pause"
  614. 6220 print""tab(30)"c[213][192][201]k[213][192][201]":print""tab(30)"a[221] ";
  615. 6230 ifac=1thenprint"[157]";:poke646,c2or8:print"[146][207]";
  616. 6240 print"[221]e[221] ";:ifky=1thenprint"[157]";:poke646,c2or8:print"[146][219]";
  617. 6250 print"[221]"
  618. 6260 print""tab(30)"r[202][192][203]y[202][192][203]":print""tab(30)"d"
  619. 6270 pokepb+(ip-1)*40,106:return
  620. 6280 pokev+21,0:print"[147]what goes up... stage test:"
  621. 6290 print"use + and - to choose a stage,then"
  622. 6300 print"press return to load it."
  623. 6310 print"space returns to the title screen."
  624. 6320 ifl<1orl>12thenl=1
  625. 6330 print"stage "n$(l)
  626. 6340 geta$:ifa$="+"thenl=l+1:goto6390
  627. 6350 ifa$="-"thenl=l-1:goto6390
  628. 6360 ifa$=" "then2400
  629. 6370 ifa$<>chr$(13)then6340
  630. 6380 pm=1:goto370
  631. 6390 ifl<1thenl=12
  632. 6400 ifl>12thenl=1
  633. 6410 print"[145]stage "n$(l)"        "
  634. 6420 goto6340
  635. 6430 a=peek(bp+40):ona(a)goto6540,6440,6440,6460,6470
  636. 6440 ifa=32thenbp=bp+40:goto6520
  637. 6450 bl=.:return
  638. 6460 dr=1:goto6480
  639. 6470 dr=-1
  640. 6480 ifa(peek(bp+dr))=1then6540
  641. 6490 a=peek(bp+dr):ifa=221then6540
  642. 6500 ifpeek(bp+dr)<>32thenbl=.:return
  643. 6510 pokebp,32:bp=bp+dr:pokebp,bl:return
  644. 6520 ifbp>50176thenbl=0:return
  645. 6530 pokebp-40,32:pokebp,bl:return
  646. 6540 pokebp,32:bl=0:return
  647. 6550 z1=1024:print"[159]awesome! you've got the top"
  648. 6560 print"position on the high score"
  649. 6570 print""tab(10)"table!!"
  650. 6580 print"enter a massage for the"
  651. 6590 print""tab(8)"other guys!"
  652. 6600 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":print"[221]"tab(27)"[221]"
  653. 6610 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][145][145]":print"[158][208][157]";:qu$=""
  654. 6620 geta$:ifa$=""then6620
  655. 6630 ifa$=chr$(13)then6710
  656. 6640 ifa$=chr$(20)andlen(qu$)>0then6700
  657. 6650 ifa$<" "ora$>chr$(95)then6620
  658. 6660 ifa$=chr$(34)ora$=","ora$=":"then6620
  659. 6670 sysz1,50,170,25,10
  660. 6680 print"[159]"a$;:qu$=qu$+a$:iflen(qu$)=25then6710
  661. 6690 print"[158][208][157]";:goto6620
  662. 6700 sysz1,50,170,20,250:qu$=left$(qu$,len(qu$)-1):print" [157][157][208][157]";:goto6620
  663. 6710 iflen(qu$)<24thenprint" "
  664. 6720 sysz1,64,192,74,8:fora=1to2000:next
  665. 6730 return
  666. 6740 pokev+21,0:pokev+16,0:print"[147][159]what goes up... game control screen"
  667. 6750 print"please enter your command:"
  668. 6760 print"[158]hit p for practice mode,"
  669. 6770 print"[158]    e to erase high scores,"
  670. 6780 print"[158]    q to return to the boot menu,"
  671. 6790 print"[158]    h to display high scores,"
  672. 6800 print"[158] or space for the title screen."
  673. 6810 geta$:ifa$="p"then6280
  674. 6820 ifa$="e"then6960
  675. 6830 ifa$="q"then1350
  676. 6840 ifa$="h"then4110
  677. 6850 ifa$=" "then2400
  678. 6860 ifa$=""thens=0:goto5020
  679. 6870 ifa$=""thens=0:goto5270
  680. 6880 ifa$<>""then6810
  681. 6890 print"[147][159]this is down down down ii"
  682. 6900 print"version 1.00"
  683. 6910 print"@ 1990 john william harris"
  684. 6920 fora=1to5000:next:goto2400
  685. 6930 print"[147][159]disk error"
  686. 6940 print"[159]"a$,b$
  687. 6950 print"[159]"c$,d$:fora=1to5000:next:goto3560
  688. 6960 pokev+21,0:ifz=1thenz=0:goto7010
  689. 6970 pokev+21,0:print"[147]do you want to erase the top score"
  690. 6980 print"table? (y/n)"
  691. 6990 geta$:ifa$="n"then2400
  692. 7000 ifa$<>"y"then6990
  693. 7010 open15,8,15,"s0:the best":close15:open2,8,2,"the best,s,w"
  694. 7020 p$(1)="mad gamer":ts(1)=1000000:p$(2)="j harris":ts(2)=500000
  695. 7030 p$(3)="loadstar":ts(3)=400000:p$(4)="spheroid":ts(4)=300000
  696. 7040 p$(5)="64 lives!":ts(5)=250000:p$(6)="who me?":ts(6)=200000
  697. 7050 p$(7)="the zone":ts(7)=150000:p$(8)="hahaha...":ts(8)=100000
  698. 7060 p$(9)="furball":ts(9)=50000:p$(10)="game over":ts(10)=10000
  699. 7070 qu$="ha! you'll never beat me! "
  700. 7080 fora=1to10:print#2,p$(a):print#2,ts(a):next:print#2,qu$:close2
  701. 7090 print"done.":fora=1to1500:next:goto2400
  702. 7100 fora=1to1500:next:goto2400
  703. 7110 print"[158]do you want to play with:"
  704. 7120 print"1[159]:a joystick in port 2"
  705. 7130 print"2[159]:a joystick in port 1/keyboard."
  706. 7140 geta$:ifa$="1"thenjp=56320:print"[147]";:return
  707. 7150 ifa$<>"2"then7140
  708. 7160 print"[147][159]if you are using the keyboard, use the"
  709. 7170 print"control and 2 keys to move left and"
  710. 7180 print"right, and the 1 and back arrow keys"
  711. 7190 print"instead of up and down. space"
  712. 7200 print"functions as the fire button."
  713. 7210 print"press fire or space to start."
  714. 7220 ifpeek(56321)<>239then7220
  715. 7230 jp=56321:print"[147]";:return
  716. 60000 a$="upboot":open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  717. 60010 if er<>63 then print"[147]":end
  718. 60011 q$=chr$(34):poke646,peek(53281):print"[147]"
  719. 60020 print"load"q$a$q$",8"
  720. 60030 print"run":poke631,13:poke632,13:poke198,2:end
  721.